home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / graphics / circuit_macros / examples / ex7.m4 < prev    next >
Text File  |  1994-03-13  |  3KB  |  93 lines
  1. .PS
  2. bight = 1.8i
  3. bigwd = 1.6i
  4. lettersp = 0.2
  5. overlap = 0.1
  6. qminusl = 0.6
  7. r = 0.3
  8. ex = 0.12
  9. del = 0.1
  10. ddel = del * sqrt(2)
  11. eps = 0.01
  12. widg = 1
  13.  
  14. F: box invis wid bigwd ht bight
  15. E: box invis wid bigwd ht bight
  16. G: box invis wid widg  ht bight
  17.    box wid G.ne.x-F.nw.x ht F.nw.y-F.sw.y with .sw at F.sw
  18.    box wid last box.wid+2*eps ht last box.ht+2*eps with .c at last box.c
  19.  
  20.    line from F.ne+(-eps/2,0) to F.se+(-eps/2,0)
  21.    line from F.ne+( eps/2,0) to F.se+( eps/2,0)
  22.    line from E.ne+(-eps/2,0) to E.se+(-eps/2,0)
  23.    line from E.ne+( eps/2,0) to E.se+( eps/2,0)
  24.  
  25.    box invis ht 0.2 wid 0.2 "\Large $F$" with .c at F.s + (0,-lettersp)
  26.    box invis ht 0.2 wid 0.2 "\Large $E$" with .c at E.s + (0,-lettersp)
  27.    box invis ht 0.2 wid 0.2 "\Large $G$" with .c at G.s + (0,-lettersp)
  28. XF: F.se + (-qminusl,qminusl)
  29. XE: E.se + (-qminusl,qminusl)
  30.  
  31.    line from (F.w,XF) to XF + (overlap,0)
  32.    line from (XF,F.n) to XF + (0,-overlap)
  33.    line from XF + (-r,0) to (XF.x-r,F.n.y)
  34.    line dashed from XF to F.se
  35.  
  36.    line from (E.w,XE) to XE + (overlap,0)
  37.    line from (XE,E.n) to XE + (0,-overlap)
  38.    line from XE + (-r,0) to (XE.x-r,E.n.y)
  39.    line dashed from XE to E.se
  40.    line from XE + (0,r) to E.w.x,XE.y+r
  41.  
  42.    line from (G.w,XE) to (G.e,XE)
  43.  
  44.    "$q$" at F.sw + (-ex,ex/3)
  45.    "$\ell$" at (F.w,XF) + (-ex,ex/3)
  46.    "$t$" at (XF,F.n) + (-ex/2,ex)
  47.    "$t$" at (XE,E.n) + (-ex/2,ex)
  48.    "$n$$+$$p$$+$$m$" at G.ne + (0,ex)
  49.    "\large $0$" at XF + (-r/2,(bight-qminusl)/2)
  50.    "\large $0$" at XF + (qminusl/2,(bight-qminusl)/2)
  51.  
  52.    "\large $0$" at XE + (-r/2,(bight-qminusl)/2)
  53.    "\large $0$" at XE + (qminusl/2,(bight-qminusl)/2)
  54.  
  55.    "$\left.\strut\right\} r$" at XE + (ex,r/2)
  56.  
  57.    "$\overbrace{\phantom{\hbox to 0.7in{}}}^{\hbox{$k$}}$" at \
  58.       F.nw + ((bigwd-qminusl-r)/2,ex*1.2)
  59.  
  60.    "$\overbrace{\phantom{\hbox to 0.7in{}}}^{\hbox{$k$}}$" at \
  61.       E.nw + (bigwd/2-qminusl/2-r/2,ex*1.2)
  62.  
  63.    line invis up 0.3 from F.nw
  64.  
  65.    thinlines_
  66.  
  67.    for y = ddel to widg by ddel do {
  68.       line from G.e.x,G.s.y+y to G.e.x-y,G.s.y }
  69.    for y = last line.start.y+ddel to G.n.y by ddel do {
  70.       line from G.e.x,y to G.w.x,y-widg }
  71.    for y = last line.end.y+ddel to G.n.y by ddel do {
  72.       line from G.w.x,y to G.w.x+G.n.y-y,G.n.y }
  73.  
  74.    for x = del to XF.x-F.w.x-r by del do {
  75.       line from E.w.x+x,E.nw.y down bight-qminusl
  76.       line from F.w.x+x,F.nw.y down bight-qminusl}
  77.  
  78.    for y = XE.y+del to XE.y+r by del do { line from XE.x,y left r }
  79.  
  80.    for x = ddel to qminusl by ddel do {
  81.       line from E.w.x+x,XE.y to E.w.x,XE.y-x
  82.       line from F.w.x+x,XF.y to F.w.x,XF.y-x }
  83.    for x = last line.start.x-F.w.x+ddel to XF.x-F.w.x by ddel do {
  84.       line from E.w.x+x,XE.y to E.w.x+x-qminusl,E.s.y
  85.       line from F.w.x+x,XF.y to F.w.x+x-qminusl,F.s.y }
  86.    for x = last line.end.x-F.w.x+ddel to bigwd by ddel do {
  87.       line from E.w.x+x,E.s.y to \
  88.          E.w.x+x+(bigwd-x)*0.5,E.s.y+(bigwd-x)*0.5
  89.       line from F.w.x+x,F.s.y to \
  90.          F.w.x+x+(bigwd-x)*0.5,F.s.y+(bigwd-x)*0.5 }
  91.  
  92. .PE
  93.